home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Gui4Cli.gc < prev    next >
Text File  |  1998-10-22  |  12KB  |  525 lines
  1. G4C
  2.  
  3. ; $VER: Gui4Cli.gc 3.5 
  4. ; =================================================================
  5. ; This is the gui which is opened when you click the "Prefs" button 
  6. ; on the Gui4Cli requester. 
  7.  
  8. ; If you find yourself feeling queezy after having suffered the full
  9. ; effect of it's poping open at you unwarned, you may change it as 
  10. ; you see fit..
  11.  
  12.  
  13. WINBIG 179 24 299 201 "Gui4Cli"
  14. WinType 11110001
  15.  
  16. BOX 0 0 297 201 out button
  17. ;* ICON 244 11 "guis:gui4cli"
  18.  
  19. ; -----------------------------------------------------------------
  20. ;               System events
  21. ; -----------------------------------------------------------------
  22.  
  23. xOnLoad
  24. setgadvalues gui4cli.gc         ; set default values
  25. setgad gui4cli.gc 72 off
  26. mode = GUI
  27. lvhelp = 'Choose guis to load'
  28. oldguidir = GUIs:
  29. update gui4cli.gc 50 'Port: $$g4c.port'
  30. gosub gui4cli.gc guichange
  31. guiopen Gui4Cli.gc
  32.  
  33. xonreload
  34. guiopen Gui4Cli.gc
  35. guiscreen gui4cli.gc front
  36.  
  37. xOnOpen
  38. SetGad Gui4Cli.gc 1 OFF         ; remove the appicon
  39. if $mode = LOAD            ; refresh stuff..
  40.    lvuse Gui4Cli.gc 10
  41.    lvdir refresh
  42. elseif $mode = GUI
  43.    lvuse Gui4Cli.gc 54
  44.    lvdir #env:$$g4c.port
  45. endif
  46.  
  47. xOnClose 
  48. SetGad Gui4Cli.gc 1 ON          ; open the appicon
  49.  
  50. xOnFail
  51. ezreq "Failed.." OK ""
  52.  
  53. xAppIcon 0 0 GUIs:Gui4Cli "Gui4Cli" apivar OFF
  54. GadID 1
  55. GuiOpen Gui4Cli.gc
  56. GuiScreen Gui4Cli.gc FRONT
  57. if $apivar > ' '
  58. andifexists DIRECTORY $apivar   ; if a directory or volume icon was
  59. orifexists DOS $apivar          ; dropped on the icon,
  60.     lvuse Gui4Cli.gc 10         ; we cd to it.. 
  61.     lvdir #$apivar
  62. endif
  63.  
  64. ; -----------------------------------------------------------------
  65. ;               Main mode CYCLER
  66. ;               - will rotate gui through all modes
  67. ; -----------------------------------------------------------------
  68.  
  69. XCYCLER 6 4 120 15 '' mode
  70. gadid 900
  71. gadhelp 'Will cycle the gui through its modes'
  72. cstr 'GUI Control' GUI
  73. cstr 'GUI Load'    LOAD
  74. cstr 'Settings'    SET
  75. gosub gui4cli.gc guichange
  76.  
  77.  
  78. xroutine guichange
  79. docase $mode
  80.  case = GUI
  81.         setgad gui4cli.gc 10 HIDE       ; the listview
  82.         setgad gui4cli.gc 50/59 SHOW    ; other lv & Open/close/quit etc
  83.         setgad gui4cli.gc 60/100 HIDE
  84.         lvuse Gui4Cli.gc 54
  85.         lvdir #env:$$g4c.port
  86.         setwintitle gui4cli.gc 'Port $$g4c.port : Home        '
  87.         break
  88.  
  89.  case = LOAD
  90.         setgad gui4cli.gc 10 SHOW
  91.         setgad gui4cli.gc 50/58 HIDE
  92.         setgad gui4cli.gc 59 SHOW
  93.         setgad gui4cli.gc 60/79 SHOW
  94.         setgad gui4cli.gc 80/100 HIDE
  95.         lvhelp = 'Choose guis from here'
  96.         setwintitle gui4cli.gc '$oldguidir                            '
  97.         break
  98.  
  99.  case = SET
  100.         setgad gui4cli.gc 10 HIDE
  101.         setgad gui4cli.gc 50/79 HIDE
  102.         setgad gui4cli.gc 80/89 SHOW
  103.         setwintitle gui4cli.gc 'Gui4Cli settings'
  104.         break
  105.  
  106. endcase
  107. partredraw gui4cli.gc 4 20 291 178
  108.  
  109.  
  110. ; -----------------------------------------------------------------
  111. ;               Listview for GUI mode
  112. ; -----------------------------------------------------------------
  113.  
  114. XLISTVIEW 6 66 285 132 "" guivar '' 0 DIR
  115. gadid 54
  116. gadfont #mono 8 000
  117. gadhelp 'These are the guis currently loaded'
  118. extract guivar file fname
  119. guiopen $fname
  120.  
  121. ; -----------------------------------------------------------------
  122. ;               GUI mode
  123. ;               will act on the selected listview items
  124. ; -----------------------------------------------------------------
  125.  
  126. TEXT 105 25 174 15 port 35 BOX
  127. gadid 50
  128.  
  129. XBUTTON 15 45 20 14 "R"         ; refresh list
  130. gadid 51
  131. gadhelp 'Refreshes the list of loaded guis'
  132. lvuse Gui4Cli.gc 54
  133. lvdir refresh
  134.  
  135. XBUTTON 40 45 58 14 Open    ; open
  136. gadid 51
  137. gadhelp 'Will open the selected guis'
  138. lvuse Gui4Cli.gc 54
  139. lvmulti first
  140. while $guivar > ''
  141.     extract guivar file fname
  142.     guiopen $fname
  143.     lvmulti next
  144. endwhile
  145. lvdir none
  146.  
  147. XBUTTON 100 45 58 14 Close   ; close
  148. gadid 52
  149. gadhelp 'Will close the selected guis'
  150. lvuse Gui4Cli.gc 54
  151. lvmulti first
  152. while $guivar > ''
  153.     extract guivar file fname
  154.     guiclose $fname
  155.     lvmulti next
  156. endwhile
  157. lvdir none
  158.  
  159. XBUTTON 160 45 58 14 Unload  ; unload
  160. gadid 53
  161. gadhelp 'Will quit the selected guis'
  162. lvuse Gui4Cli.gc 54
  163. lvmulti first
  164. while $guivar > ''
  165.     extract guivar file fname
  166.     guiquit $fname
  167.     lvmulti next
  168. endwhile
  169. ; the guis won't actually quit until all commands have executed, so..
  170. reflag = 1
  171.  
  172. xAfter
  173. if $reflag = 1
  174.    reflag = 0
  175.    lvdir refresh
  176. endif
  177.  
  178. XBUTTON 235 45 20 14 "A"  ; also shown in gui mode
  179. gadhelp 'Select all items'
  180. gadid 51
  181. lvuse Gui4Cli.gc 54
  182. lvdir all
  183.  
  184. XBUTTON 255 45 20 14 "N"
  185. gadhelp 'Unselect all items'
  186. gadid 51
  187. lvuse Gui4Cli.gc 54
  188. lvdir none
  189.  
  190. BOX 6 22 284 41 in button
  191. GADID 59
  192.  
  193. CTEXT 18 27 'GUI Control' #screen 8 2 0 0001
  194. gadid 50
  195.  
  196.  
  197. ; -----------------------------------------------------------------
  198. ;               Listview for LOAD/FAV mode
  199. ; -----------------------------------------------------------------
  200.  
  201. XLISTVIEW 6 66 285 132 "" guivar GUIs: 0 DIR
  202. gadid 10
  203. gadfont #mono 8 000
  204. gadhelp 'Listview : $lvhelp'    ; we set it above according to mode
  205. docase $mode
  206.   case = FAV
  207.         setgad gui4cli.gc 71 on         ; if double clicked in FAV mode
  208.         setgad gui4cli.gc 60/63 on      ; set it back to LOAD mode
  209.         setgad gui4cli.gc 72 off        ; and cd to selection
  210.         lvhelp = 'Choose guis to load'
  211.         lvmode DIR
  212.         lvdir #$guivar
  213.         mode = LOAD
  214.         break
  215.   case = LOAD
  216.         if $guivar H= G4C
  217.             guiload $guivar
  218.         endif
  219.         break
  220. endcase
  221.         
  222. xlvdirhook 10
  223. if $mode = LOAD
  224.     oldguidir = $$lv.dir
  225.     setwintitle gui4cli.gc '$oldguidir                         '
  226. endif
  227.  
  228. ; -----------------------------------------------------------------
  229. ;               Load mode
  230. ; -----------------------------------------------------------------
  231.  
  232. ; for the box use the same as above (gadid 59)
  233.  
  234. CTEXT 20 27 GuiLoad #screen 8 2 0 0001
  235. gadid 60
  236.  
  237.  
  238. XBUTTON 24 42 80 14 Load      ; load
  239. gadhelp 'Will load the selected files if they are guis'
  240. gadid 60
  241. lvuse Gui4Cli.gc 10
  242. lvmulti first
  243. while $guivar > ''
  244.     if $guivar H= G4C
  245.        guiload $guivar
  246.     endif       
  247.     lvmulti next
  248. endwhile
  249. lvdir none
  250.  
  251. XBUTTON 117 42 20 14 "P"
  252. gadhelp 'CD to Parent dir'
  253. gadid 60
  254. lvuse Gui4Cli.gc 10
  255. lvdir parent
  256. oldguidir = $$lv.dir
  257. setwintitle gui4cli.gc '$oldguidir                         '
  258.  
  259. XBUTTON 138 42 20 14 "D"
  260. gadhelp 'Show Volumes list'
  261. gadid 60
  262. lvuse Gui4Cli.gc 10
  263. lvdir disks
  264. oldguidir = ''
  265. setwintitle gui4cli.gc 'Devices'
  266.  
  267. XBUTTON 171 42 20 14 "G"
  268. gadhelp 'Shortcut to GUIs:'
  269. gadid 60
  270. lvuse Gui4Cli.gc 10
  271. lvdir #Guis:
  272. oldguidir = GUIs:
  273. setwintitle gui4cli.gc 'GUIs:'
  274.  
  275. XBUTTON 117 27 20 14 "A"  ; also shown in gui mode
  276. gadhelp 'Select all items'
  277. gadid 60
  278. lvuse Gui4Cli.gc 10
  279. lvdir all
  280.  
  281. XBUTTON 138 27 20 14 "N"
  282. gadhelp 'Unselect all items'
  283. gadid 60
  284. lvuse Gui4Cli.gc 10
  285. lvdir none
  286.  
  287.  
  288. ; -----------------------------------------------------------------
  289. ;               Favourites control
  290. ; -----------------------------------------------------------------
  291.  
  292. XBUTTON 192 27 58 14 "Fav"
  293. gadid 70
  294. gadhelp 'Switches to and from Favourites mode'
  295. lvuse gui4cli.gc 10
  296. if $mode = FAV
  297.    setgad gui4cli.gc 71 on
  298.    setgad gui4cli.gc 60/63 on
  299.    setgad gui4cli.gc 72 off
  300.    lvhelp = 'Choose guis to load'
  301.    lvmode DIR
  302.    lvdir #$oldguidir
  303.    mode = LOAD
  304. else
  305.    setgad gui4cli.gc 71 off
  306.    setgad gui4cli.gc 60/63 off
  307.    setgad gui4cli.gc 72 on
  308.    lvhelp = 'Double click on a directory, or hit FAV again to cancel'
  309.    lvmode MULTI
  310.    lvchange guis:tools/fav/G4C.fav
  311.    lvsort asc
  312.    mode = FAV
  313. endif
  314.  
  315. XBUTTON 252 27 29 14 "+"
  316. gadid 71
  317. gadhelp 'Adds the current dir the Listview is at, to your favourites'
  318. lvuse gui4cli.gc 10
  319. append guis:tools/fav/g4c.fav '\n$$lv.dir'
  320.  
  321. XBUTTON 252 42 29 14 "-"
  322. gadid 72
  323. gadhelp 'Deletes selected favourite entries'
  324. lvuse gui4cli.gc 10
  325. lvmulti first
  326. while $guivar > ''
  327.    lvdel -1
  328.    lvmulti first
  329. endwhile
  330.  
  331. XBUTTON 192 42 58 14 "Save"
  332. gadid 72
  333. gadhelp 'Save favourites to GUIs:tools/fav/G4C.fav'
  334. lvuse gui4cli.gc 10
  335. lvsave guis:tools/fav/g4c.fav
  336.  
  337.  
  338. ; -----------------------------------------------------------------
  339. ;               Gui4Cli Settings 
  340. ; -----------------------------------------------------------------
  341.  
  342.  
  343. BOX 10 90 276 41 in button
  344. gadid 80
  345.  
  346. CTEXT 20 27 'Settings